c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine qqbox_ir(s,t1,t2,u1,u2,mt,mh,kmv)
c form factors for the UV finite, but IR div. contribution
c box diagrams kmv1: B3(1),B3(3), kmv2: B3(2),B3(4)
      implicit none
      integer i,j
      real*8 mt,mh
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 d1r(0:3),d2r(0:6),d3r(0:3,0:3),ch1(0:2),s1,s2,cs1,cs2
      complex*16 zero,kmv(4),kmv1(4),kmv2(4)
      complex*16 c0,d0,D0_ir,c11,c12,c20,c21,c22,c23
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3),c1(0:2,4),c2(0:3,4)
      complex*16 d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 d301,d302,d303,d31,d32,d33,d312,d313,d321,d323,
     $     d331,d332,d3123
      real*8 lambda,lambda2

      COMMON/IR/LAMBDA,LAMBDA2

      lambda=mt
      lambda2=lambda**2
      zero=dcmplx(0d0,0d0)
      do i=1,4
         kmv(i)=zero
         kmv1(i)=zero
         kmv2(i)=zero
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
      cs1=1d0/(s1-mt**2)/s
      cs2=1d0/(s2-mt**2)/s
c B3(1)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p1pq,mt**2,0d0,
     $     mt**2-2d0*p1p3,s,0d0,mt,0d0)
c      write(6,*)'B3(1)=',d1(0)
      call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p1p3,
     $     -p3p4,p1p4-p3p4,-p1p3,
     $      0d0,0d0,0d0,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv1(1)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+
     $     64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2-
     $     64*d11*mt**4*s**2+32*d13*mt**4*s**2+32*d223*mt**4*s**2+
     $     32*d23*mt**4*s**2-16*d11*mt**2*s**3+16*d212*mt**2*s**3+
     $     16*d213*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d213*s**3*p1p2+32*c0*mt**2*s*p1p3+
     $     64*d20*mt**2*s*p1p3-128*d12*mt**4*s*p1p3-
     $     192*d13*mt**4*s*p1p3-64*d223*mt**4*s*p1p3-
     $     64*d23*mt**4*s*p1p3-32*d11*mt**2*s**2*p1p3-
     $     64*d12*mt**2*s**2*p1p3-96*d13*mt**2*s**2*p1p3-
     $     32*d212*mt**2*s**2*p1p3-32*d213*mt**2*s**2*p1p3+
     $     32*d223*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3-
     $     96*c0*s*p1p2*p1p3-128*d20*s*p1p2*p1p3+
     $     128*d12*mt**2*s*p1p2*p1p3+128*d13*mt**2*s*p1p2*p1p3+
     $     64*d223*mt**2*s*p1p2*p1p3+64*d11*s**2*p1p2*p1p3+
     $     32*d212*s**2*p1p2*p1p3+32*d213*s**2*p1p2*p1p3-
     $     32*d223*s**2*p1p2*p1p3-32*d23*s**2*p1p2*p1p3-
     $     64*d13*mt**2*s*p1p3**2-64*d223*mt**2*s*p1p3**2-
     $     64*d23*mt**2*s*p1p3**2+128*d12*s*p1p2*p1p3**2+
     $     256*d13*s*p1p2*p1p3**2+64*d223*s*p1p2*p1p3**2+
     $     64*d23*s*p1p2*p1p3**2-32*c0*mt**2*s*p1p4-
     $     64*d20*mt**2*s*p1p4+128*d11*mt**4*s*p1p4+
     $     64*d213*mt**4*s*p1p4-64*d23*mt**4*s*p1p4+
     $     32*d11*mt**2*s**2*p1p4+32*d212*mt**2*s**2*p1p4-
     $     32*c0*s*p1p2*p1p4-128*d11*mt**2*s*p1p2*p1p4-
     $     64*d13*mt**2*s*p1p2*p1p4-64*d213*mt**2*s*p1p2*p1p4+
     $     32*d11*s**2*p1p2*p1p4-32*d212*s**2*p1p2*p1p4+
     $     32*d213*s**2*p1p2*p1p4-256*c0*mt**2*p1p3*p1p4-
     $     256*d20*mt**2*p1p3*p1p4-256*d13*mt**4*p1p3*p1p4-
     $     256*d23*mt**4*p1p3*p1p4+256*d11*mt**2*s*p1p3*p1p4+
     $     64*d13*mt**2*s*p1p3*p1p4+64*d213*mt**2*s*p1p3*p1p4-
     $     64*d223*mt**2*s*p1p3*p1p4-128*d23*mt**2*s*p1p3*p1p4+
     $     256*c0*p1p2*p1p3*p1p4+256*d20*p1p2*p1p3*p1p4+
     $     256*d13*mt**2*p1p2*p1p3*p1p4+
     $     256*d23*mt**2*p1p2*p1p3*p1p4-
     $     320*d11*s*p1p2*p1p3*p1p4+
     $     128*d12*s*p1p2*p1p3*p1p4+
     $     128*d13*s*p1p2*p1p3*p1p4-
     $     128*d213*s*p1p2*p1p3*p1p4+
     $     64*d223*s*p1p2*p1p3*p1p4+
     $     64*d23*s*p1p2*p1p3*p1p4+
     $     512*d12*mt**2*p1p3**2*p1p4+
     $     768*d13*mt**2*p1p3**2*p1p4+
     $     256*d223*mt**2*p1p3**2*p1p4+
     $     384*d23*mt**2*p1p3**2*p1p4-
     $     512*d12*p1p2*p1p3**2*p1p4-
     $     768*d13*p1p2*p1p3**2*p1p4-
     $     256*d223*p1p2*p1p3**2*p1p4-
     $     256*d23*p1p2*p1p3**2*p1p4-64*d213*mt**2*s*p1p4**2-
     $     64*d11*s*p1p2*p1p4**2-512*d11*mt**2*p1p3*p1p4**2-
     $     256*d213*mt**2*p1p3*p1p4**2+
     $     128*d23*mt**2*p1p3*p1p4**2+
     $     512*d11*p1p2*p1p3*p1p4**2+
     $     256*d213*p1p2*p1p3*p1p4**2+64*c0*mt**2*s*p2p3+
     $     64*d20*mt**2*s*p2p3+64*d13*mt**4*s*p2p3+
     $     64*d23*mt**4*s*p2p3-64*d11*mt**2*s**2*p2p3+
     $     128*c0*s*p1p3*p2p3-128*d12*mt**2*s*p1p3*p2p3-
     $     128*d13*mt**2*s*p1p3*p2p3-64*d11*s**2*p1p3*p2p3-
     $     128*d12*s*p1p3**2*p2p3-256*d13*s*p1p3**2*p2p3+
     $     32*c0*s*p1p4*p2p3-128*d20*s*p1p4*p2p3+
     $     128*d11*mt**2*s*p1p4*p2p3+64*d213*mt**2*s*p1p4*p2p3+
     $     64*d223*mt**2*s*p1p4*p2p3+32*d212*s**2*p1p4*p2p3+
     $     32*d213*s**2*p1p4*p2p3-192*c0*p1p3*p1p4*p2p3-
     $     256*d20*p1p3*p1p4*p2p3-
     $     128*d13*mt**2*p1p3*p1p4*p2p3-
     $     256*d23*mt**2*p1p3*p1p4*p2p3+
     $     256*d11*s*p1p3*p1p4*p2p3+
     $     64*d212*s*p1p3*p1p4*p2p3+
     $     64*d213*s*p1p3*p1p4*p2p3+
     $     64*d223*s*p1p3*p1p4*p2p3+
     $     64*d23*s*p1p3*p1p4*p2p3+
     $     256*d12*p1p3**2*p1p4*p2p3+
     $     512*d13*p1p3**2*p1p4*p2p3+
     $     128*d223*p1p3**2*p1p4*p2p3+
     $     128*d23*p1p3**2*p1p4*p2p3+64*c0*p1p4**2*p2p3+
     $     128*d13*mt**2*p1p4**2*p2p3-64*d11*s*p1p4**2*p2p3+
     $     64*d212*s*p1p4**2*p2p3-64*d213*s*p1p4**2*p2p3-
     $     384*d11*p1p3*p1p4**2*p2p3-
     $     256*d12*p1p3*p1p4**2*p2p3-
     $     256*d13*p1p3*p1p4**2*p2p3-
     $     256*d213*p1p3*p1p4**2*p2p3-
     $     128*d223*p1p3*p1p4**2*p2p3-
     $     128*d23*p1p3*p1p4**2*p2p3+128*d11*p1p4**3*p2p3+
     $     64*c0*mt**2*s*p2p4+64*d20*mt**2*s*p2p4+
     $     64*d13*mt**4*s*p2p4+64*d23*mt**4*s*p2p4-
     $     32*d11*mt**2*s**2*p2p4+32*d223*mt**2*s**2*p2p4+
     $     32*d23*mt**2*s**2*p2p4+32*c0*s*p1p3*p2p4-
     $     128*d20*s*p1p3*p2p4-64*d11*mt**2*s*p1p3*p2p4-
     $     128*d12*mt**2*s*p1p3*p2p4-192*d13*mt**2*s*p1p3*p2p4-
     $     64*d223*mt**2*s*p1p3*p2p4-128*d23*mt**2*s*p1p3*p2p4+
     $     32*d212*s**2*p1p3*p2p4+32*d213*s**2*p1p3*p2p4+
     $     192*c0*p1p3**2*p2p4+256*d20*p1p3**2*p2p4+
     $     128*d13*mt**2*p1p3**2*p2p4+
     $     128*d23*mt**2*p1p3**2*p2p4-128*d11*s*p1p3**2*p2p4-
     $     64*d212*s*p1p3**2*p2p4-64*d213*s*p1p3**2*p2p4+
     $     64*d223*s*p1p3**2*p2p4+64*d23*s*p1p3**2*p2p4-
     $     256*d12*p1p3**3*p2p4-512*d13*p1p3**3*p2p4-
     $     128*d223*p1p3**3*p2p4-128*d23*p1p3**3*p2p4+
     $     64*c0*s*p1p4*p2p4-128*d20*s*p1p4*p2p4+
     $     64*d11*mt**2*s*p1p4*p2p4+64*d13*mt**2*s*p1p4*p2p4+
     $     64*d213*mt**2*s*p1p4*p2p4-64*d23*mt**2*s*p1p4*p2p4+
     $     64*d212*s**2*p1p4*p2p4+64*d213*s**2*p1p4*p2p4-
     $     64*c0*p1p3*p1p4*p2p4-
     $     128*d13*mt**2*p1p3*p1p4*p2p4-
     $     128*d23*mt**2*p1p3*p1p4*p2p4-
     $     64*d11*s*p1p3*p1p4*p2p4-
     $     128*d12*s*p1p3*p1p4*p2p4-
     $     128*d13*s*p1p3*p1p4*p2p4-
     $     64*d212*s*p1p3*p1p4*p2p4-
     $     192*d213*s*p1p3*p1p4*p2p4+
     $     384*d11*p1p3**2*p1p4*p2p4+
     $     256*d12*p1p3**2*p1p4*p2p4+
     $     256*d13*p1p3**2*p1p4*p2p4+
     $     256*d213*p1p3**2*p1p4*p2p4+
     $     128*d223*p1p3**2*p1p4*p2p4+
     $     128*d23*p1p3**2*p1p4*p2p4-
     $     128*d213*s*p1p4**2*p2p4-128*d11*p1p3*p1p4**2*p2p4)
      
      kmv2(1)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+
     $     32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2-
     $     16*d11*mt**2*s**3+16*d212*mt**2*s**3+16*d213*mt**2*s**3-
     $     64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d213*s**3*p1p2+64*c0*s*p1p2**2+
     $     64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+
     $     64*d23*mt**2*s*p1p2**2-64*d11*s**2*p1p2**2-
     $     32*d213*s**2*p1p2**2+64*c0*mt**2*s*p1p3+
     $     192*d20*mt**2*s*p1p3+32*d13*mt**4*s*p1p3+
     $     64*d23*mt**4*s*p1p3-64*d11*mt**2*s**2*p1p3-
     $     64*d12*mt**2*s**2*p1p3-96*d13*mt**2*s**2*p1p3-
     $     64*d212*mt**2*s**2*p1p3-64*d213*mt**2*s**2*p1p3+
     $     32*d223*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3-
     $     64*c0*s*p1p2*p1p3+128*d12*mt**2*s*p1p2*p1p3+
     $     160*d13*mt**2*s*p1p2*p1p3+64*d223*mt**2*s*p1p2*p1p3+
     $     64*d23*mt**2*s*p1p2*p1p3+32*d11*s**2*p1p2*p1p3-
     $     32*d223*s**2*p1p2*p1p3-32*d23*s**2*p1p2*p1p3-
     $     128*d12*s*p1p2**2*p1p3-192*d13*s*p1p2**2*p1p3-
     $     64*d223*s*p1p2**2*p1p3-64*d23*s*p1p2**2*p1p3-
     $     64*d12*mt**2*s*p1p3**2-192*d13*mt**2*s*p1p3**2-
     $     128*d223*mt**2*s*p1p3**2-128*d23*mt**2*s*p1p3**2+
     $     64*d12*s*p1p2*p1p3**2+128*d13*s*p1p2*p1p3**2-
     $     128*d20*mt**2*s*p1p4+32*d13*mt**4*s*p1p4-
     $     64*d23*mt**4*s*p1p4+32*d11*mt**2*s**2*p1p4+
     $     64*d212*mt**2*s**2*p1p4+32*d213*mt**2*s**2*p1p4-
     $     64*d20*s*p1p2*p1p4-128*d11*mt**2*s*p1p2*p1p4-
     $     32*d13*mt**2*s*p1p2*p1p4-64*d213*mt**2*s*p1p2*p1p4+
     $     32*d11*s**2*p1p2*p1p4+64*d213*s**2*p1p2*p1p4+
     $     128*d11*s*p1p2**2*p1p4+64*d213*s*p1p2**2*p1p4-
     $     64*d12*mt**2*s*p1p3*p1p4-64*d23*mt**2*s*p1p3*p1p4-
     $     64*d11*s*p1p2*p1p3*p1p4+
     $     64*d12*s*p1p2*p1p3*p1p4+
     $     64*d13*s*p1p2*p1p3*p1p4+
     $     64*d223*s*p1p2*p1p3*p1p4+
     $     64*d23*s*p1p2*p1p3*p1p4-128*d213*mt**2*s*p1p4**2-
     $     64*d11*s*p1p2*p1p4**2-64*d213*s*p1p2*p1p4**2+
     $     32*c0*mt**2*s*p2p3-64*d20*mt**2*s*p2p3+
     $     32*d13*mt**4*s*p2p3-32*d11*mt**2*s**2*p2p3+
     $     32*d212*mt**2*s**2*p2p3+32*d213*mt**2*s**2*p2p3-
     $     32*c0*s*p1p2*p2p3-128*d20*s*p1p2*p2p3-
     $     32*d13*mt**2*s*p1p2*p2p3-64*d23*mt**2*s*p1p2*p2p3+
     $     32*d11*s**2*p1p2*p2p3+32*d212*s**2*p1p2*p2p3+
     $     32*d213*s**2*p1p2*p2p3+128*c0*s*p1p3*p2p3-
     $     64*d12*mt**2*s*p1p3*p2p3+64*d223*mt**2*s*p1p3*p2p3+
     $     64*d23*mt**2*s*p1p3*p2p3-64*d11*s**2*p1p3*p2p3+
     $     64*d12*s*p1p2*p1p3*p2p3+
     $     128*d13*s*p1p2*p1p3*p2p3+
     $     64*d223*s*p1p2*p1p3*p2p3+
     $     64*d23*s*p1p2*p1p3*p2p3-128*d12*s*p1p3**2*p2p3-
     $     256*d13*s*p1p3**2*p2p3+128*c0*mt**2*p1p4*p2p3+
     $     128*d20*mt**2*p1p4*p2p3+128*d13*mt**4*p1p4*p2p3+
     $     128*d23*mt**4*p1p4*p2p3+32*c0*s*p1p4*p2p3-
     $     128*d20*s*p1p4*p2p3-64*d11*mt**2*s*p1p4*p2p3-
     $     64*d213*mt**2*s*p1p4*p2p3+64*d223*mt**2*s*p1p4*p2p3+
     $     32*d212*s**2*p1p4*p2p3+32*d213*s**2*p1p4*p2p3-
     $     128*c0*p1p2*p1p4*p2p3-128*d20*p1p2*p1p4*p2p3-
     $     128*d13*mt**2*p1p2*p1p4*p2p3-
     $     128*d23*mt**2*p1p2*p1p4*p2p3+
     $     64*d11*s*p1p2*p1p4*p2p3-
     $     128*c0*p1p3*p1p4*p2p3-
     $     256*d12*mt**2*p1p3*p1p4*p2p3-
     $     448*d13*mt**2*p1p3*p1p4*p2p3-
     $     128*d223*mt**2*p1p3*p1p4*p2p3-
     $     256*d23*mt**2*p1p3*p1p4*p2p3+
     $     192*d11*s*p1p3*p1p4*p2p3+
     $     64*d223*s*p1p3*p1p4*p2p3+
     $     64*d23*s*p1p3*p1p4*p2p3+
     $     256*d12*p1p2*p1p3*p1p4*p2p3+
     $     384*d13*p1p2*p1p3*p1p4*p2p3+
     $     128*d223*p1p2*p1p3*p1p4*p2p3+
     $     128*d23*p1p2*p1p3*p1p4*p2p3+
     $     128*d12*p1p3**2*p1p4*p2p3+
     $     256*d13*p1p3**2*p1p4*p2p3+128*d20*p1p4**2*p2p3+
     $     256*d11*mt**2*p1p4**2*p2p3+64*d13*mt**2*p1p4**2*p2p3+
     $     128*d213*mt**2*p1p4**2*p2p3-64*d11*s*p1p4**2*p2p3-
     $     128*d213*s*p1p4**2*p2p3-
     $     256*d11*p1p2*p1p4**2*p2p3-
     $     128*d213*p1p2*p1p4**2*p2p3-
     $     128*d11*p1p3*p1p4**2*p2p3-
     $     128*d12*p1p3*p1p4**2*p2p3-
     $     128*d13*p1p3*p1p4**2*p2p3-
     $     128*d223*p1p3*p1p4**2*p2p3-
     $     128*d23*p1p3*p1p4**2*p2p3+128*d11*p1p4**3*p2p3+
     $     128*d213*p1p4**3*p2p3+64*c0*p1p4*p2p3**2+
     $     256*d20*p1p4*p2p3**2+64*d13*mt**2*p1p4*p2p3**2+
     $     128*d23*mt**2*p1p4*p2p3**2-64*d11*s*p1p4*p2p3**2-
     $     64*d212*s*p1p4*p2p3**2-64*d213*s*p1p4*p2p3**2-
     $     128*d12*p1p3*p1p4*p2p3**2-
     $     256*d13*p1p3*p1p4*p2p3**2-
     $     128*d223*p1p3*p1p4*p2p3**2-
     $     128*d23*p1p3*p1p4*p2p3**2+
     $     128*d11*p1p4**2*p2p3**2+128*d213*p1p4**2*p2p3**2+
     $     32*c0*mt**2*s*p2p4+128*d20*mt**2*s*p2p4+
     $     32*d13*mt**4*s*p2p4+64*d23*mt**4*s*p2p4-
     $     32*d11*mt**2*s**2*p2p4-32*d212*mt**2*s**2*p2p4-
     $     32*d213*mt**2*s**2*p2p4+32*d223*mt**2*s**2*p2p4+
     $     32*d23*mt**2*s**2*p2p4-32*c0*s*p1p2*p2p4+
     $     64*d20*s*p1p2*p2p4-32*d13*mt**2*s*p1p2*p2p4-
     $     32*d212*s**2*p1p2*p2p4-32*d213*s**2*p1p2*p2p4+
     $     128*c0*mt**2*p1p3*p2p4+128*d20*mt**2*p1p3*p2p4+
     $     128*d13*mt**4*p1p3*p2p4+128*d23*mt**4*p1p3*p2p4+
     $     32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4-
     $     128*d11*mt**2*s*p1p3*p2p4-64*d12*mt**2*s*p1p3*p2p4-
     $     128*d13*mt**2*s*p1p3*p2p4-64*d223*mt**2*s*p1p3*p2p4-
     $     128*d23*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+
     $     32*d213*s**2*p1p3*p2p4-128*c0*p1p2*p1p3*p2p4-
     $     128*d20*p1p2*p1p3*p2p4-
     $     128*d13*mt**2*p1p2*p1p3*p2p4-
     $     128*d23*mt**2*p1p2*p1p3*p2p4+
     $     192*d11*s*p1p2*p1p3*p2p4+
     $     64*d12*s*p1p2*p1p3*p2p4+
     $     64*d13*s*p1p2*p1p3*p2p4+
     $     128*d213*s*p1p2*p1p3*p2p4+128*c0*p1p3**2*p2p4-
     $     256*d12*mt**2*p1p3**2*p2p4-
     $     320*d13*mt**2*p1p3**2*p2p4-
     $     128*d223*mt**2*p1p3**2*p2p4-
     $     128*d23*mt**2*p1p3**2*p2p4-64*d11*s*p1p3**2*p2p4+
     $     64*d223*s*p1p3**2*p2p4+64*d23*s*p1p3**2*p2p4+
     $     256*d12*p1p2*p1p3**2*p2p4+
     $     384*d13*p1p2*p1p3**2*p2p4+
     $     128*d223*p1p2*p1p3**2*p2p4+
     $     128*d23*p1p2*p1p3**2*p2p4-128*d12*p1p3**3*p2p4-
     $     256*d13*p1p3**3*p2p4+64*c0*s*p1p4*p2p4-
     $     128*d20*s*p1p4*p2p4+64*d11*mt**2*s*p1p4*p2p4+
     $     64*d13*mt**2*s*p1p4*p2p4+128*d213*mt**2*s*p1p4*p2p4-
     $     64*d23*mt**2*s*p1p4*p2p4+64*d212*s**2*p1p4*p2p4+
     $     64*d213*s**2*p1p4*p2p4+64*d213*s*p1p2*p1p4*p2p4-
     $     128*d20*p1p3*p1p4*p2p4+
     $     256*d11*mt**2*p1p3*p1p4*p2p4-
     $     64*d13*mt**2*p1p3*p1p4*p2p4+
     $     128*d213*mt**2*p1p3*p1p4*p2p4-
     $     128*d23*mt**2*p1p3*p1p4*p2p4-
     $     64*d11*s*p1p3*p1p4*p2p4-
     $     128*d12*s*p1p3*p1p4*p2p4-
     $     128*d13*s*p1p3*p1p4*p2p4-
     $     128*d213*s*p1p3*p1p4*p2p4-
     $     256*d11*p1p2*p1p3*p1p4*p2p4-
     $     128*d213*p1p2*p1p3*p1p4*p2p4+
     $     128*d11*p1p3**2*p1p4*p2p4+
     $     128*d12*p1p3**2*p1p4*p2p4+
     $     128*d13*p1p3**2*p1p4*p2p4+
     $     128*d223*p1p3**2*p1p4*p2p4+
     $     128*d23*p1p3**2*p1p4*p2p4-
     $     128*d213*s*p1p4**2*p2p4-
     $     128*d11*p1p3*p1p4**2*p2p4-
     $     128*d213*p1p3*p1p4**2*p2p4-
     $     64*d213*mt**2*s*p2p3*p2p4-64*d223*mt**2*s*p2p3*p2p4-
     $     64*d23*mt**2*s*p2p3*p2p4-64*c0*p1p3*p2p3*p2p4-
     $     256*d20*p1p3*p2p3*p2p4-
     $     64*d13*mt**2*p1p3*p2p3*p2p4+
     $     64*d11*s*p1p3*p2p3*p2p4+
     $     64*d212*s*p1p3*p2p3*p2p4+
     $     64*d213*s*p1p3*p2p3*p2p4+
     $     128*d12*p1p3**2*p2p3*p2p4+
     $     256*d13*p1p3**2*p2p3*p2p4+
     $     128*d223*p1p3**2*p2p3*p2p4+
     $     128*d23*p1p3**2*p2p3*p2p4-
     $     64*c0*p1p4*p2p3*p2p4+128*d20*p1p4*p2p3*p2p4-
     $     64*d13*mt**2*p1p4*p2p3*p2p4+
     $     128*d23*mt**2*p1p4*p2p3*p2p4-
     $     64*d212*s*p1p4*p2p3*p2p4-
     $     64*d213*s*p1p4*p2p3*p2p4+
     $     128*d12*p1p3*p1p4*p2p3*p2p4+
     $     128*d13*p1p3*p1p4*p2p3*p2p4+
     $     128*d213*p1p4**2*p2p3*p2p4+64*c0*p1p3*p2p4**2-
     $     128*d20*p1p3*p2p4**2+64*d13*mt**2*p1p3*p2p4**2+
     $     64*d212*s*p1p3*p2p4**2+64*d213*s*p1p3*p2p4**2-
     $     128*d11*p1p3**2*p2p4**2-128*d12*p1p3**2*p2p4**2-
     $     128*d13*p1p3**2*p2p4**2-128*d213*p1p3**2*p2p4**2-
     $     128*d213*p1p3*p1p4*p2p4**2)

      kmv(1)=(cs1*kmv1(1)+cs2*kmv2(1))/(s1-mt**2)/4d0

c B3(2)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p2pq,mt**2,0d0,
     $     mt**2-2d0*p2p4,s,0d0,mt,0d0)
c      write(6,*)'B8(2)=',d1(0)
      call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p2p4,
     $     -p3p4,-p2p4,p2p3-p3p4,
     $      0d0,0d0,0d0,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv1(2)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+
     $     32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2-
     $     16*d12*mt**2*s**3+16*d212*mt**2*s**3+16*d223*mt**2*s**3-
     $     64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*s*p1p2**2+
     $     64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+
     $     64*d23*mt**2*s*p1p2**2-64*d12*s**2*p1p2**2-
     $     32*d223*s**2*p1p2**2+32*c0*mt**2*s*p1p3+
     $     128*d20*mt**2*s*p1p3+32*d13*mt**4*s*p1p3+
     $     64*d23*mt**4*s*p1p3-32*d12*mt**2*s**2*p1p3-
     $     32*d212*mt**2*s**2*p1p3+32*d213*mt**2*s**2*p1p3-
     $     32*d223*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3-
     $     32*c0*s*p1p2*p1p3+64*d20*s*p1p2*p1p3-
     $     32*d13*mt**2*s*p1p2*p1p3-32*d212*s**2*p1p2*p1p3-
     $     32*d223*s**2*p1p2*p1p3+32*c0*mt**2*s*p1p4-
     $     64*d20*mt**2*s*p1p4+32*d13*mt**4*s*p1p4-
     $     32*d12*mt**2*s**2*p1p4+32*d212*mt**2*s**2*p1p4+
     $     32*d223*mt**2*s**2*p1p4-32*c0*s*p1p2*p1p4-
     $     128*d20*s*p1p2*p1p4-32*d13*mt**2*s*p1p2*p1p4-
     $     64*d23*mt**2*s*p1p2*p1p4+32*d12*s**2*p1p2*p1p4+
     $     32*d212*s**2*p1p2*p1p4+32*d223*s**2*p1p2*p1p4-
     $     64*d213*mt**2*s*p1p3*p1p4-64*d223*mt**2*s*p1p3*p1p4-
     $     64*d23*mt**2*s*p1p3*p1p4-128*d20*mt**2*s*p2p3+
     $     32*d13*mt**4*s*p2p3-64*d23*mt**4*s*p2p3+
     $     32*d12*mt**2*s**2*p2p3+64*d212*mt**2*s**2*p2p3+
     $     32*d223*mt**2*s**2*p2p3-64*d20*s*p1p2*p2p3-
     $     128*d12*mt**2*s*p1p2*p2p3-32*d13*mt**2*s*p1p2*p2p3-
     $     64*d223*mt**2*s*p1p2*p2p3+32*d12*s**2*p1p2*p2p3+
     $     64*d223*s**2*p1p2*p2p3+128*d12*s*p1p2**2*p2p3+
     $     64*d223*s*p1p2**2*p2p3+64*c0*s*p1p3*p2p3-
     $     128*d20*s*p1p3*p2p3+64*d12*mt**2*s*p1p3*p2p3+
     $     64*d13*mt**2*s*p1p3*p2p3+128*d223*mt**2*s*p1p3*p2p3-
     $     64*d23*mt**2*s*p1p3*p2p3+64*d212*s**2*p1p3*p2p3+
     $     64*d223*s**2*p1p3*p2p3+64*d223*s*p1p2*p1p3*p2p3+
     $     128*c0*mt**2*p1p4*p2p3+128*d20*mt**2*p1p4*p2p3+
     $     128*d13*mt**4*p1p4*p2p3+128*d23*mt**4*p1p4*p2p3+
     $     32*c0*s*p1p4*p2p3-128*d20*s*p1p4*p2p3-
     $     64*d12*mt**2*s*p1p4*p2p3+64*d213*mt**2*s*p1p4*p2p3-
     $     64*d223*mt**2*s*p1p4*p2p3+32*d212*s**2*p1p4*p2p3+
     $     32*d223*s**2*p1p4*p2p3-128*c0*p1p2*p1p4*p2p3-
     $     128*d20*p1p2*p1p4*p2p3-
     $     128*d13*mt**2*p1p2*p1p4*p2p3-
     $     128*d23*mt**2*p1p2*p1p4*p2p3+
     $     64*d12*s*p1p2*p1p4*p2p3-64*c0*p1p3*p1p4*p2p3+
     $     128*d20*p1p3*p1p4*p2p3-
     $     64*d13*mt**2*p1p3*p1p4*p2p3+
     $     128*d23*mt**2*p1p3*p1p4*p2p3-
     $     64*d212*s*p1p3*p1p4*p2p3-
     $     64*d223*s*p1p3*p1p4*p2p3+64*c0*p1p4**2*p2p3+
     $     256*d20*p1p4**2*p2p3+64*d13*mt**2*p1p4**2*p2p3+
     $     128*d23*mt**2*p1p4**2*p2p3-64*d12*s*p1p4**2*p2p3-
     $     64*d212*s*p1p4**2*p2p3-64*d223*s*p1p4**2*p2p3-
     $     128*d223*mt**2*s*p2p3**2-64*d12*s*p1p2*p2p3**2-
     $     64*d223*s*p1p2*p2p3**2-128*d223*s*p1p3*p2p3**2+
     $     128*d20*p1p4*p2p3**2+256*d12*mt**2*p1p4*p2p3**2+
     $     64*d13*mt**2*p1p4*p2p3**2+
     $     128*d223*mt**2*p1p4*p2p3**2-64*d12*s*p1p4*p2p3**2-
     $     128*d223*s*p1p4*p2p3**2-
     $     256*d12*p1p2*p1p4*p2p3**2-
     $     128*d223*p1p2*p1p4*p2p3**2+
     $     128*d223*p1p3*p1p4*p2p3**2+
     $     128*d12*p1p4**2*p2p3**2+128*d223*p1p4**2*p2p3**2+
     $     128*d12*p1p4*p2p3**3+128*d223*p1p4*p2p3**3+
     $     64*c0*mt**2*s*p2p4+192*d20*mt**2*s*p2p4+
     $     32*d13*mt**4*s*p2p4+64*d23*mt**4*s*p2p4-
     $     64*d11*mt**2*s**2*p2p4-64*d12*mt**2*s**2*p2p4-
     $     96*d13*mt**2*s**2*p2p4-64*d212*mt**2*s**2*p2p4+
     $     32*d213*mt**2*s**2*p2p4-64*d223*mt**2*s**2*p2p4+
     $     32*d23*mt**2*s**2*p2p4-64*c0*s*p1p2*p2p4+
     $     128*d11*mt**2*s*p1p2*p2p4+160*d13*mt**2*s*p1p2*p2p4+
     $     64*d213*mt**2*s*p1p2*p2p4+64*d23*mt**2*s*p1p2*p2p4+
     $     32*d12*s**2*p1p2*p2p4-32*d213*s**2*p1p2*p2p4-
     $     32*d23*s**2*p1p2*p2p4-128*d11*s*p1p2**2*p2p4-
     $     192*d13*s*p1p2**2*p2p4-64*d213*s*p1p2**2*p2p4-
     $     64*d23*s*p1p2**2*p2p4+128*c0*mt**2*p1p3*p2p4+
     $     128*d20*mt**2*p1p3*p2p4+128*d13*mt**4*p1p3*p2p4+
     $     128*d23*mt**4*p1p3*p2p4+32*c0*s*p1p3*p2p4-
     $     128*d20*s*p1p3*p2p4-64*d11*mt**2*s*p1p3*p2p4-
     $     128*d12*mt**2*s*p1p3*p2p4-128*d13*mt**2*s*p1p3*p2p4-
     $     64*d213*mt**2*s*p1p3*p2p4-128*d23*mt**2*s*p1p3*p2p4+
     $     32*d212*s**2*p1p3*p2p4+32*d223*s**2*p1p3*p2p4-
     $     128*c0*p1p2*p1p3*p2p4-128*d20*p1p2*p1p3*p2p4-
     $     128*d13*mt**2*p1p2*p1p3*p2p4-
     $     128*d23*mt**2*p1p2*p1p3*p2p4+
     $     64*d11*s*p1p2*p1p3*p2p4+
     $     192*d12*s*p1p2*p1p3*p2p4+
     $     64*d13*s*p1p2*p1p3*p2p4+
     $     128*d223*s*p1p2*p1p3*p2p4+64*c0*p1p3**2*p2p4-
     $     128*d20*p1p3**2*p2p4+64*d13*mt**2*p1p3**2*p2p4+
     $     64*d212*s*p1p3**2*p2p4+64*d223*s*p1p3**2*p2p4+
     $     128*c0*s*p1p4*p2p4-64*d11*mt**2*s*p1p4*p2p4+
     $     64*d213*mt**2*s*p1p4*p2p4+64*d23*mt**2*s*p1p4*p2p4-
     $     64*d12*s**2*p1p4*p2p4+64*d11*s*p1p2*p1p4*p2p4+
     $     128*d13*s*p1p2*p1p4*p2p4+
     $     64*d213*s*p1p2*p1p4*p2p4+
     $     64*d23*s*p1p2*p1p4*p2p4-64*c0*p1p3*p1p4*p2p4-
     $     256*d20*p1p3*p1p4*p2p4-
     $     64*d13*mt**2*p1p3*p1p4*p2p4+
     $     64*d12*s*p1p3*p1p4*p2p4+
     $     64*d212*s*p1p3*p1p4*p2p4+
     $     64*d223*s*p1p3*p1p4*p2p4-
     $     64*d11*mt**2*s*p2p3*p2p4-64*d23*mt**2*s*p2p3*p2p4+
     $     64*d11*s*p1p2*p2p3*p2p4-
     $     64*d12*s*p1p2*p2p3*p2p4+
     $     64*d13*s*p1p2*p2p3*p2p4+
     $     64*d213*s*p1p2*p2p3*p2p4+
     $     64*d23*s*p1p2*p2p3*p2p4-
     $     128*d20*p1p3*p2p3*p2p4+
     $     256*d12*mt**2*p1p3*p2p3*p2p4-
     $     64*d13*mt**2*p1p3*p2p3*p2p4+
     $     128*d223*mt**2*p1p3*p2p3*p2p4-
     $     128*d23*mt**2*p1p3*p2p3*p2p4-
     $     128*d11*s*p1p3*p2p3*p2p4-
     $     64*d12*s*p1p3*p2p3*p2p4-
     $     128*d13*s*p1p3*p2p3*p2p4-
     $     128*d223*s*p1p3*p2p3*p2p4-
     $     256*d12*p1p2*p1p3*p2p3*p2p4-
     $     128*d223*p1p2*p1p3*p2p3*p2p4-
     $     128*d223*p1p3**2*p2p3*p2p4-
     $     128*c0*p1p4*p2p3*p2p4-
     $     256*d11*mt**2*p1p4*p2p3*p2p4-
     $     448*d13*mt**2*p1p4*p2p3*p2p4-
     $     128*d213*mt**2*p1p4*p2p3*p2p4-
     $     256*d23*mt**2*p1p4*p2p3*p2p4+
     $     192*d12*s*p1p4*p2p3*p2p4+
     $     64*d213*s*p1p4*p2p3*p2p4+
     $     64*d23*s*p1p4*p2p3*p2p4+
     $     256*d11*p1p2*p1p4*p2p3*p2p4+
     $     384*d13*p1p2*p1p4*p2p3*p2p4+
     $     128*d213*p1p2*p1p4*p2p3*p2p4+
     $     128*d23*p1p2*p1p4*p2p3*p2p4+
     $     128*d11*p1p3*p1p4*p2p3*p2p4+
     $     128*d13*p1p3*p1p4*p2p3*p2p4-
     $     128*d11*p1p4**2*p2p3*p2p4-
     $     256*d13*p1p4**2*p2p3*p2p4-
     $     128*d213*p1p4**2*p2p3*p2p4-
     $     128*d23*p1p4**2*p2p3*p2p4-
     $     128*d12*p1p3*p2p3**2*p2p4-
     $     128*d223*p1p3*p2p3**2*p2p4-
     $     128*d11*p1p4*p2p3**2*p2p4-
     $     128*d12*p1p4*p2p3**2*p2p4-
     $     128*d13*p1p4*p2p3**2*p2p4-
     $     128*d213*p1p4*p2p3**2*p2p4-
     $     128*d23*p1p4*p2p3**2*p2p4-64*d11*mt**2*s*p2p4**2-
     $     192*d13*mt**2*s*p2p4**2-128*d213*mt**2*s*p2p4**2-
     $     128*d23*mt**2*s*p2p4**2+64*d11*s*p1p2*p2p4**2+
     $     128*d13*s*p1p2*p2p4**2+128*c0*p1p3*p2p4**2-
     $     256*d11*mt**2*p1p3*p2p4**2-
     $     320*d13*mt**2*p1p3*p2p4**2-
     $     128*d213*mt**2*p1p3*p2p4**2-
     $     128*d23*mt**2*p1p3*p2p4**2-64*d12*s*p1p3*p2p4**2+
     $     64*d213*s*p1p3*p2p4**2+64*d23*s*p1p3*p2p4**2+
     $     256*d11*p1p2*p1p3*p2p4**2+
     $     384*d13*p1p2*p1p3*p2p4**2+
     $     128*d213*p1p2*p1p3*p2p4**2+
     $     128*d23*p1p2*p1p3*p2p4**2-
     $     128*d11*p1p3**2*p2p4**2-128*d12*p1p3**2*p2p4**2-
     $     128*d13*p1p3**2*p2p4**2-128*d223*p1p3**2*p2p4**2-
     $     128*d11*s*p1p4*p2p4**2-256*d13*s*p1p4*p2p4**2+
     $     128*d11*p1p3*p1p4*p2p4**2+
     $     256*d13*p1p3*p1p4*p2p4**2+
     $     128*d213*p1p3*p1p4*p2p4**2+
     $     128*d23*p1p3*p1p4*p2p4**2+
     $     128*d11*p1p3*p2p3*p2p4**2+
     $     128*d12*p1p3*p2p3*p2p4**2+
     $     128*d13*p1p3*p2p3*p2p4**2+
     $     128*d213*p1p3*p2p3*p2p4**2+
     $     128*d23*p1p3*p2p3*p2p4**2+
     $     128*d11*p1p4*p2p3*p2p4**2+
     $     256*d13*p1p4*p2p3*p2p4**2-128*d11*p1p3*p2p4**3-
     $     256*d13*p1p3*p2p4**3)
      kmv2(2)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+
     $     64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2-
     $     64*d12*mt**4*s**2+32*d13*mt**4*s**2+32*d213*mt**4*s**2+
     $     32*d23*mt**4*s**2-16*d12*mt**2*s**3+16*d212*mt**2*s**3+
     $     16*d223*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*mt**2*s*p1p3+
     $     64*d20*mt**2*s*p1p3+64*d13*mt**4*s*p1p3+
     $     64*d23*mt**4*s*p1p3-32*d12*mt**2*s**2*p1p3+
     $     32*d213*mt**2*s**2*p1p3+32*d23*mt**2*s**2*p1p3+
     $     64*c0*mt**2*s*p1p4+64*d20*mt**2*s*p1p4+
     $     64*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4-
     $     64*d12*mt**2*s**2*p1p4-32*c0*mt**2*s*p2p3-
     $     64*d20*mt**2*s*p2p3+128*d12*mt**4*s*p2p3+
     $     64*d223*mt**4*s*p2p3-64*d23*mt**4*s*p2p3+
     $     32*d12*mt**2*s**2*p2p3+32*d212*mt**2*s**2*p2p3-
     $     32*c0*s*p1p2*p2p3-128*d12*mt**2*s*p1p2*p2p3-
     $     64*d13*mt**2*s*p1p2*p2p3-64*d223*mt**2*s*p1p2*p2p3+
     $     32*d12*s**2*p1p2*p2p3-32*d212*s**2*p1p2*p2p3+
     $     32*d223*s**2*p1p2*p2p3+64*c0*s*p1p3*p2p3-
     $     128*d20*s*p1p3*p2p3+64*d12*mt**2*s*p1p3*p2p3+
     $     64*d13*mt**2*s*p1p3*p2p3+64*d223*mt**2*s*p1p3*p2p3-
     $     64*d23*mt**2*s*p1p3*p2p3+64*d212*s**2*p1p3*p2p3+
     $     64*d223*s**2*p1p3*p2p3+32*c0*s*p1p4*p2p3-
     $     128*d20*s*p1p4*p2p3+128*d12*mt**2*s*p1p4*p2p3+
     $     64*d213*mt**2*s*p1p4*p2p3+64*d223*mt**2*s*p1p4*p2p3+
     $     32*d212*s**2*p1p4*p2p3+32*d223*s**2*p1p4*p2p3-
     $     64*d223*mt**2*s*p2p3**2-64*d12*s*p1p2*p2p3**2-
     $     128*d223*s*p1p3*p2p3**2+64*c0*p1p4*p2p3**2+
     $     128*d13*mt**2*p1p4*p2p3**2-64*d12*s*p1p4*p2p3**2+
     $     64*d212*s*p1p4*p2p3**2-64*d223*s*p1p4*p2p3**2+
     $     128*d12*p1p4*p2p3**3+32*c0*mt**2*s*p2p4+
     $     64*d20*mt**2*s*p2p4-128*d11*mt**4*s*p2p4-
     $     192*d13*mt**4*s*p2p4-64*d213*mt**4*s*p2p4-
     $     64*d23*mt**4*s*p2p4-64*d11*mt**2*s**2*p2p4-
     $     32*d12*mt**2*s**2*p2p4-96*d13*mt**2*s**2*p2p4-
     $     32*d212*mt**2*s**2*p2p4+32*d213*mt**2*s**2*p2p4-
     $     32*d223*mt**2*s**2*p2p4+32*d23*mt**2*s**2*p2p4-
     $     96*c0*s*p1p2*p2p4-128*d20*s*p1p2*p2p4+
     $     128*d11*mt**2*s*p1p2*p2p4+128*d13*mt**2*s*p1p2*p2p4+
     $     64*d213*mt**2*s*p1p2*p2p4+64*d12*s**2*p1p2*p2p4+
     $     32*d212*s**2*p1p2*p2p4-32*d213*s**2*p1p2*p2p4+
     $     32*d223*s**2*p1p2*p2p4-32*d23*s**2*p1p2*p2p4+
     $     32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4-
     $     128*d11*mt**2*s*p1p3*p2p4-64*d12*mt**2*s*p1p3*p2p4-
     $     192*d13*mt**2*s*p1p3*p2p4-64*d213*mt**2*s*p1p3*p2p4-
     $     128*d23*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+
     $     32*d223*s**2*p1p3*p2p4+128*c0*s*p1p4*p2p4-
     $     128*d11*mt**2*s*p1p4*p2p4-128*d13*mt**2*s*p1p4*p2p4-
     $     64*d12*s**2*p1p4*p2p4-256*c0*mt**2*p2p3*p2p4-
     $     256*d20*mt**2*p2p3*p2p4-256*d13*mt**4*p2p3*p2p4-
     $     256*d23*mt**4*p2p3*p2p4+256*d12*mt**2*s*p2p3*p2p4+
     $     64*d13*mt**2*s*p2p3*p2p4-64*d213*mt**2*s*p2p3*p2p4+
     $     64*d223*mt**2*s*p2p3*p2p4-128*d23*mt**2*s*p2p3*p2p4+
     $     256*c0*p1p2*p2p3*p2p4+256*d20*p1p2*p2p3*p2p4+
     $     256*d13*mt**2*p1p2*p2p3*p2p4+
     $     256*d23*mt**2*p1p2*p2p3*p2p4+
     $     128*d11*s*p1p2*p2p3*p2p4-
     $     320*d12*s*p1p2*p2p3*p2p4+
     $     128*d13*s*p1p2*p2p3*p2p4+
     $     64*d213*s*p1p2*p2p3*p2p4-
     $     128*d223*s*p1p2*p2p3*p2p4+
     $     64*d23*s*p1p2*p2p3*p2p4-64*c0*p1p3*p2p3*p2p4-
     $     128*d13*mt**2*p1p3*p2p3*p2p4-
     $     128*d23*mt**2*p1p3*p2p3*p2p4-
     $     128*d11*s*p1p3*p2p3*p2p4-
     $     64*d12*s*p1p3*p2p3*p2p4-
     $     128*d13*s*p1p3*p2p3*p2p4-
     $     64*d212*s*p1p3*p2p3*p2p4-
     $     192*d223*s*p1p3*p2p3*p2p4-
     $     192*c0*p1p4*p2p3*p2p4-256*d20*p1p4*p2p3*p2p4-
     $     128*d13*mt**2*p1p4*p2p3*p2p4-
     $     256*d23*mt**2*p1p4*p2p3*p2p4+
     $     256*d12*s*p1p4*p2p3*p2p4+
     $     64*d212*s*p1p4*p2p3*p2p4+
     $     64*d213*s*p1p4*p2p3*p2p4+
     $     64*d223*s*p1p4*p2p3*p2p4+
     $     64*d23*s*p1p4*p2p3*p2p4-
     $     512*d12*mt**2*p2p3**2*p2p4-
     $     256*d223*mt**2*p2p3**2*p2p4+
     $     128*d23*mt**2*p2p3**2*p2p4+
     $     512*d12*p1p2*p2p3**2*p2p4+
     $     256*d223*p1p2*p2p3**2*p2p4-
     $     128*d12*p1p3*p2p3**2*p2p4-
     $     256*d11*p1p4*p2p3**2*p2p4-
     $     384*d12*p1p4*p2p3**2*p2p4-
     $     256*d13*p1p4*p2p3**2*p2p4-
     $     128*d213*p1p4*p2p3**2*p2p4-
     $     256*d223*p1p4*p2p3**2*p2p4-
     $     128*d23*p1p4*p2p3**2*p2p4-64*d13*mt**2*s*p2p4**2-
     $     64*d213*mt**2*s*p2p4**2-64*d23*mt**2*s*p2p4**2+
     $     128*d11*s*p1p2*p2p4**2+256*d13*s*p1p2*p2p4**2+
     $     64*d213*s*p1p2*p2p4**2+64*d23*s*p1p2*p2p4**2+
     $     192*c0*p1p3*p2p4**2+256*d20*p1p3*p2p4**2+
     $     128*d13*mt**2*p1p3*p2p4**2+
     $     128*d23*mt**2*p1p3*p2p4**2-128*d12*s*p1p3*p2p4**2-
     $     64*d212*s*p1p3*p2p4**2+64*d213*s*p1p3*p2p4**2-
     $     64*d223*s*p1p3*p2p4**2+64*d23*s*p1p3*p2p4**2-
     $     128*d11*s*p1p4*p2p4**2-256*d13*s*p1p4*p2p4**2+
     $     512*d11*mt**2*p2p3*p2p4**2+
     $     768*d13*mt**2*p2p3*p2p4**2+
     $     256*d213*mt**2*p2p3*p2p4**2+
     $     384*d23*mt**2*p2p3*p2p4**2-
     $     512*d11*p1p2*p2p3*p2p4**2-
     $     768*d13*p1p2*p2p3*p2p4**2-
     $     256*d213*p1p2*p2p3*p2p4**2-
     $     256*d23*p1p2*p2p3*p2p4**2+
     $     256*d11*p1p3*p2p3*p2p4**2+
     $     384*d12*p1p3*p2p3*p2p4**2+
     $     256*d13*p1p3*p2p3*p2p4**2+
     $     128*d213*p1p3*p2p3*p2p4**2+
     $     256*d223*p1p3*p2p3*p2p4**2+
     $     128*d23*p1p3*p2p3*p2p4**2+
     $     256*d11*p1p4*p2p3*p2p4**2+
     $     512*d13*p1p4*p2p3*p2p4**2+
     $     128*d213*p1p4*p2p3*p2p4**2+
     $     128*d23*p1p4*p2p3*p2p4**2-256*d11*p1p3*p2p4**3-
     $     512*d13*p1p3*p2p4**3-128*d213*p1p3*p2p4**3-
     $     128*d23*p1p3*p2p4**3)
      
      kmv(2)=(cs1*kmv1(2)+cs2*kmv2(2))/(s2-mt**2)/4d0
c B3(3)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p1pq,mt**2,0d0,
     $     mt**2-2d0*p1p4,s,0d0,mt,0d0)
c      write(6,*)'B8(1)=',d1(0)
      call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p1p4,
     $     -p3p4,p1p3-p3p4,-p1p4,
     $      0d0,0d0,0d0,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv1(3)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+
     $     64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2-
     $     64*d11*mt**4*s**2+32*d13*mt**4*s**2+32*d223*mt**4*s**2+
     $     32*d23*mt**4*s**2-16*d11*mt**2*s**3+16*d212*mt**2*s**3+
     $     16*d213*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d213*s**3*p1p2-32*c0*mt**2*s*p1p3-
     $     64*d20*mt**2*s*p1p3+128*d11*mt**4*s*p1p3+
     $     64*d213*mt**4*s*p1p3-64*d23*mt**4*s*p1p3+
     $     32*d11*mt**2*s**2*p1p3+32*d212*mt**2*s**2*p1p3-
     $     32*c0*s*p1p2*p1p3-128*d11*mt**2*s*p1p2*p1p3-
     $     64*d13*mt**2*s*p1p2*p1p3-64*d213*mt**2*s*p1p2*p1p3+
     $     32*d11*s**2*p1p2*p1p3-32*d212*s**2*p1p2*p1p3+
     $     32*d213*s**2*p1p2*p1p3-64*d213*mt**2*s*p1p3**2-
     $     64*d11*s*p1p2*p1p3**2+32*c0*mt**2*s*p1p4+
     $     64*d20*mt**2*s*p1p4-128*d12*mt**4*s*p1p4-
     $     192*d13*mt**4*s*p1p4-64*d223*mt**4*s*p1p4-
     $     64*d23*mt**4*s*p1p4-32*d11*mt**2*s**2*p1p4-
     $     64*d12*mt**2*s**2*p1p4-96*d13*mt**2*s**2*p1p4-
     $     32*d212*mt**2*s**2*p1p4-32*d213*mt**2*s**2*p1p4+
     $     32*d223*mt**2*s**2*p1p4+32*d23*mt**2*s**2*p1p4-
     $     96*c0*s*p1p2*p1p4-128*d20*s*p1p2*p1p4+
     $     128*d12*mt**2*s*p1p2*p1p4+128*d13*mt**2*s*p1p2*p1p4+
     $     64*d223*mt**2*s*p1p2*p1p4+64*d11*s**2*p1p2*p1p4+
     $     32*d212*s**2*p1p2*p1p4+32*d213*s**2*p1p2*p1p4-
     $     32*d223*s**2*p1p2*p1p4-32*d23*s**2*p1p2*p1p4-
     $     256*c0*mt**2*p1p3*p1p4-256*d20*mt**2*p1p3*p1p4-
     $     256*d13*mt**4*p1p3*p1p4-256*d23*mt**4*p1p3*p1p4+
     $     256*d11*mt**2*s*p1p3*p1p4+64*d13*mt**2*s*p1p3*p1p4+
     $     64*d213*mt**2*s*p1p3*p1p4-64*d223*mt**2*s*p1p3*p1p4-
     $     128*d23*mt**2*s*p1p3*p1p4+256*c0*p1p2*p1p3*p1p4+
     $     256*d20*p1p2*p1p3*p1p4+
     $     256*d13*mt**2*p1p2*p1p3*p1p4+
     $     256*d23*mt**2*p1p2*p1p3*p1p4-
     $     320*d11*s*p1p2*p1p3*p1p4+
     $     128*d12*s*p1p2*p1p3*p1p4+
     $     128*d13*s*p1p2*p1p3*p1p4-
     $     128*d213*s*p1p2*p1p3*p1p4+
     $     64*d223*s*p1p2*p1p3*p1p4+
     $     64*d23*s*p1p2*p1p3*p1p4-
     $     512*d11*mt**2*p1p3**2*p1p4-
     $     256*d213*mt**2*p1p3**2*p1p4+
     $     128*d23*mt**2*p1p3**2*p1p4+
     $     512*d11*p1p2*p1p3**2*p1p4+
     $     256*d213*p1p2*p1p3**2*p1p4-64*d13*mt**2*s*p1p4**2-
     $     64*d223*mt**2*s*p1p4**2-64*d23*mt**2*s*p1p4**2+
     $     128*d12*s*p1p2*p1p4**2+256*d13*s*p1p2*p1p4**2+
     $     64*d223*s*p1p2*p1p4**2+64*d23*s*p1p2*p1p4**2+
     $     512*d12*mt**2*p1p3*p1p4**2+
     $     768*d13*mt**2*p1p3*p1p4**2+
     $     256*d223*mt**2*p1p3*p1p4**2+
     $     384*d23*mt**2*p1p3*p1p4**2-
     $     512*d12*p1p2*p1p3*p1p4**2-
     $     768*d13*p1p2*p1p3*p1p4**2-
     $     256*d223*p1p2*p1p3*p1p4**2-
     $     256*d23*p1p2*p1p3*p1p4**2+64*c0*mt**2*s*p2p3+
     $     64*d20*mt**2*s*p2p3+64*d13*mt**4*s*p2p3+
     $     64*d23*mt**4*s*p2p3-32*d11*mt**2*s**2*p2p3+
     $     32*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3+
     $     64*c0*s*p1p3*p2p3-128*d20*s*p1p3*p2p3+
     $     64*d11*mt**2*s*p1p3*p2p3+64*d13*mt**2*s*p1p3*p2p3+
     $     64*d213*mt**2*s*p1p3*p2p3-64*d23*mt**2*s*p1p3*p2p3+
     $     64*d212*s**2*p1p3*p2p3+64*d213*s**2*p1p3*p2p3-
     $     128*d213*s*p1p3**2*p2p3+32*c0*s*p1p4*p2p3-
     $     128*d20*s*p1p4*p2p3-64*d11*mt**2*s*p1p4*p2p3-
     $     128*d12*mt**2*s*p1p4*p2p3-192*d13*mt**2*s*p1p4*p2p3-
     $     64*d223*mt**2*s*p1p4*p2p3-128*d23*mt**2*s*p1p4*p2p3+
     $     32*d212*s**2*p1p4*p2p3+32*d213*s**2*p1p4*p2p3-
     $     64*c0*p1p3*p1p4*p2p3-
     $     128*d13*mt**2*p1p3*p1p4*p2p3-
     $     128*d23*mt**2*p1p3*p1p4*p2p3-
     $     64*d11*s*p1p3*p1p4*p2p3-
     $     128*d12*s*p1p3*p1p4*p2p3-
     $     128*d13*s*p1p3*p1p4*p2p3-
     $     64*d212*s*p1p3*p1p4*p2p3-
     $     192*d213*s*p1p3*p1p4*p2p3-
     $     128*d11*p1p3**2*p1p4*p2p3+192*c0*p1p4**2*p2p3+
     $     256*d20*p1p4**2*p2p3+128*d13*mt**2*p1p4**2*p2p3+
     $     128*d23*mt**2*p1p4**2*p2p3-128*d11*s*p1p4**2*p2p3-
     $     64*d212*s*p1p4**2*p2p3-64*d213*s*p1p4**2*p2p3+
     $     64*d223*s*p1p4**2*p2p3+64*d23*s*p1p4**2*p2p3+
     $     384*d11*p1p3*p1p4**2*p2p3+
     $     256*d12*p1p3*p1p4**2*p2p3+
     $     256*d13*p1p3*p1p4**2*p2p3+
     $     256*d213*p1p3*p1p4**2*p2p3+
     $     128*d223*p1p3*p1p4**2*p2p3+
     $     128*d23*p1p3*p1p4**2*p2p3-256*d12*p1p4**3*p2p3-
     $     512*d13*p1p4**3*p2p3-128*d223*p1p4**3*p2p3-
     $     128*d23*p1p4**3*p2p3+64*c0*mt**2*s*p2p4+
     $     64*d20*mt**2*s*p2p4+64*d13*mt**4*s*p2p4+
     $     64*d23*mt**4*s*p2p4-64*d11*mt**2*s**2*p2p4+
     $     32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4+
     $     128*d11*mt**2*s*p1p3*p2p4+64*d213*mt**2*s*p1p3*p2p4+
     $     64*d223*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+
     $     32*d213*s**2*p1p3*p2p4+64*c0*p1p3**2*p2p4+
     $     128*d13*mt**2*p1p3**2*p2p4-64*d11*s*p1p3**2*p2p4+
     $     64*d212*s*p1p3**2*p2p4-64*d213*s*p1p3**2*p2p4+
     $     128*d11*p1p3**3*p2p4+128*c0*s*p1p4*p2p4-
     $     128*d12*mt**2*s*p1p4*p2p4-128*d13*mt**2*s*p1p4*p2p4-
     $     64*d11*s**2*p1p4*p2p4-192*c0*p1p3*p1p4*p2p4-
     $     256*d20*p1p3*p1p4*p2p4-
     $     128*d13*mt**2*p1p3*p1p4*p2p4-
     $     256*d23*mt**2*p1p3*p1p4*p2p4+
     $     256*d11*s*p1p3*p1p4*p2p4+
     $     64*d212*s*p1p3*p1p4*p2p4+
     $     64*d213*s*p1p3*p1p4*p2p4+
     $     64*d223*s*p1p3*p1p4*p2p4+
     $     64*d23*s*p1p3*p1p4*p2p4-
     $     384*d11*p1p3**2*p1p4*p2p4-
     $     256*d12*p1p3**2*p1p4*p2p4-
     $     256*d13*p1p3**2*p1p4*p2p4-
     $     256*d213*p1p3**2*p1p4*p2p4-
     $     128*d223*p1p3**2*p1p4*p2p4-
     $     128*d23*p1p3**2*p1p4*p2p4-128*d12*s*p1p4**2*p2p4-
     $     256*d13*s*p1p4**2*p2p4+256*d12*p1p3*p1p4**2*p2p4+
     $     512*d13*p1p3*p1p4**2*p2p4+
     $     128*d223*p1p3*p1p4**2*p2p4+
     $     128*d23*p1p3*p1p4**2*p2p4)
      kmv2(3)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+
     $     32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2-
     $     16*d11*mt**2*s**3+16*d212*mt**2*s**3+16*d213*mt**2*s**3-
     $     64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d11*mt**2*s**2*p1p2-32*d223*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d213*s**3*p1p2+64*c0*s*p1p2**2+
     $     64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+
     $     64*d23*mt**2*s*p1p2**2-64*d11*s**2*p1p2**2-
     $     32*d213*s**2*p1p2**2-128*d20*mt**2*s*p1p3+
     $     32*d13*mt**4*s*p1p3-64*d23*mt**4*s*p1p3+
     $     32*d11*mt**2*s**2*p1p3+64*d212*mt**2*s**2*p1p3+
     $     32*d213*mt**2*s**2*p1p3-64*d20*s*p1p2*p1p3-
     $     128*d11*mt**2*s*p1p2*p1p3-32*d13*mt**2*s*p1p2*p1p3-
     $     64*d213*mt**2*s*p1p2*p1p3+32*d11*s**2*p1p2*p1p3+
     $     64*d213*s**2*p1p2*p1p3+128*d11*s*p1p2**2*p1p3+
     $     64*d213*s*p1p2**2*p1p3-128*d213*mt**2*s*p1p3**2-
     $     64*d11*s*p1p2*p1p3**2-64*d213*s*p1p2*p1p3**2+
     $     64*c0*mt**2*s*p1p4+192*d20*mt**2*s*p1p4+
     $     32*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4-
     $     64*d11*mt**2*s**2*p1p4-64*d12*mt**2*s**2*p1p4-
     $     96*d13*mt**2*s**2*p1p4-64*d212*mt**2*s**2*p1p4-
     $     64*d213*mt**2*s**2*p1p4+32*d223*mt**2*s**2*p1p4+
     $     32*d23*mt**2*s**2*p1p4-64*c0*s*p1p2*p1p4+
     $     128*d12*mt**2*s*p1p2*p1p4+160*d13*mt**2*s*p1p2*p1p4+
     $     64*d223*mt**2*s*p1p2*p1p4+64*d23*mt**2*s*p1p2*p1p4+
     $     32*d11*s**2*p1p2*p1p4-32*d223*s**2*p1p2*p1p4-
     $     32*d23*s**2*p1p2*p1p4-128*d12*s*p1p2**2*p1p4-
     $     192*d13*s*p1p2**2*p1p4-64*d223*s*p1p2**2*p1p4-
     $     64*d23*s*p1p2**2*p1p4-64*d12*mt**2*s*p1p3*p1p4-
     $     64*d23*mt**2*s*p1p3*p1p4-64*d11*s*p1p2*p1p3*p1p4+
     $     64*d12*s*p1p2*p1p3*p1p4+
     $     64*d13*s*p1p2*p1p3*p1p4+
     $     64*d223*s*p1p2*p1p3*p1p4+
     $     64*d23*s*p1p2*p1p3*p1p4-64*d12*mt**2*s*p1p4**2-
     $     192*d13*mt**2*s*p1p4**2-128*d223*mt**2*s*p1p4**2-
     $     128*d23*mt**2*s*p1p4**2+64*d12*s*p1p2*p1p4**2+
     $     128*d13*s*p1p2*p1p4**2+32*c0*mt**2*s*p2p3+
     $     128*d20*mt**2*s*p2p3+32*d13*mt**4*s*p2p3+
     $     64*d23*mt**4*s*p2p3-32*d11*mt**2*s**2*p2p3-
     $     32*d212*mt**2*s**2*p2p3-32*d213*mt**2*s**2*p2p3+
     $     32*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3-
     $     32*c0*s*p1p2*p2p3+64*d20*s*p1p2*p2p3-
     $     32*d13*mt**2*s*p1p2*p2p3-32*d212*s**2*p1p2*p2p3-
     $     32*d213*s**2*p1p2*p2p3+64*c0*s*p1p3*p2p3-
     $     128*d20*s*p1p3*p2p3+64*d11*mt**2*s*p1p3*p2p3+
     $     64*d13*mt**2*s*p1p3*p2p3+128*d213*mt**2*s*p1p3*p2p3-
     $     64*d23*mt**2*s*p1p3*p2p3+64*d212*s**2*p1p3*p2p3+
     $     64*d213*s**2*p1p3*p2p3+64*d213*s*p1p2*p1p3*p2p3-
     $     128*d213*s*p1p3**2*p2p3+128*c0*mt**2*p1p4*p2p3+
     $     128*d20*mt**2*p1p4*p2p3+128*d13*mt**4*p1p4*p2p3+
     $     128*d23*mt**4*p1p4*p2p3+32*c0*s*p1p4*p2p3-
     $     128*d20*s*p1p4*p2p3-128*d11*mt**2*s*p1p4*p2p3-
     $     64*d12*mt**2*s*p1p4*p2p3-128*d13*mt**2*s*p1p4*p2p3-
     $     64*d223*mt**2*s*p1p4*p2p3-128*d23*mt**2*s*p1p4*p2p3+
     $     32*d212*s**2*p1p4*p2p3+32*d213*s**2*p1p4*p2p3-
     $     128*c0*p1p2*p1p4*p2p3-128*d20*p1p2*p1p4*p2p3-
     $     128*d13*mt**2*p1p2*p1p4*p2p3-
     $     128*d23*mt**2*p1p2*p1p4*p2p3+
     $     192*d11*s*p1p2*p1p4*p2p3+
     $     64*d12*s*p1p2*p1p4*p2p3+
     $     64*d13*s*p1p2*p1p4*p2p3+
     $     128*d213*s*p1p2*p1p4*p2p3-
     $     128*d20*p1p3*p1p4*p2p3+
     $     256*d11*mt**2*p1p3*p1p4*p2p3-
     $     64*d13*mt**2*p1p3*p1p4*p2p3+
     $     128*d213*mt**2*p1p3*p1p4*p2p3-
     $     128*d23*mt**2*p1p3*p1p4*p2p3-
     $     64*d11*s*p1p3*p1p4*p2p3-
     $     128*d12*s*p1p3*p1p4*p2p3-
     $     128*d13*s*p1p3*p1p4*p2p3-
     $     128*d213*s*p1p3*p1p4*p2p3-
     $     256*d11*p1p2*p1p3*p1p4*p2p3-
     $     128*d213*p1p2*p1p3*p1p4*p2p3-
     $     128*d11*p1p3**2*p1p4*p2p3-
     $     128*d213*p1p3**2*p1p4*p2p3+128*c0*p1p4**2*p2p3-
     $     256*d12*mt**2*p1p4**2*p2p3-
     $     320*d13*mt**2*p1p4**2*p2p3-
     $     128*d223*mt**2*p1p4**2*p2p3-
     $     128*d23*mt**2*p1p4**2*p2p3-64*d11*s*p1p4**2*p2p3+
     $     64*d223*s*p1p4**2*p2p3+64*d23*s*p1p4**2*p2p3+
     $     256*d12*p1p2*p1p4**2*p2p3+
     $     384*d13*p1p2*p1p4**2*p2p3+
     $     128*d223*p1p2*p1p4**2*p2p3+
     $     128*d23*p1p2*p1p4**2*p2p3+
     $     128*d11*p1p3*p1p4**2*p2p3+
     $     128*d12*p1p3*p1p4**2*p2p3+
     $     128*d13*p1p3*p1p4**2*p2p3+
     $     128*d223*p1p3*p1p4**2*p2p3+
     $     128*d23*p1p3*p1p4**2*p2p3-128*d12*p1p4**3*p2p3-
     $     256*d13*p1p4**3*p2p3+64*c0*p1p4*p2p3**2-
     $     128*d20*p1p4*p2p3**2+64*d13*mt**2*p1p4*p2p3**2+
     $     64*d212*s*p1p4*p2p3**2+64*d213*s*p1p4*p2p3**2-
     $     128*d213*p1p3*p1p4*p2p3**2-
     $     128*d11*p1p4**2*p2p3**2-128*d12*p1p4**2*p2p3**2-
     $     128*d13*p1p4**2*p2p3**2-128*d213*p1p4**2*p2p3**2+
     $     32*c0*mt**2*s*p2p4-64*d20*mt**2*s*p2p4+
     $     32*d13*mt**4*s*p2p4-32*d11*mt**2*s**2*p2p4+
     $     32*d212*mt**2*s**2*p2p4+32*d213*mt**2*s**2*p2p4-
     $     32*c0*s*p1p2*p2p4-128*d20*s*p1p2*p2p4-
     $     32*d13*mt**2*s*p1p2*p2p4-64*d23*mt**2*s*p1p2*p2p4+
     $     32*d11*s**2*p1p2*p2p4+32*d212*s**2*p1p2*p2p4+
     $     32*d213*s**2*p1p2*p2p4+128*c0*mt**2*p1p3*p2p4+
     $     128*d20*mt**2*p1p3*p2p4+128*d13*mt**4*p1p3*p2p4+
     $     128*d23*mt**4*p1p3*p2p4+32*c0*s*p1p3*p2p4-
     $     128*d20*s*p1p3*p2p4-64*d11*mt**2*s*p1p3*p2p4-
     $     64*d213*mt**2*s*p1p3*p2p4+64*d223*mt**2*s*p1p3*p2p4+
     $     32*d212*s**2*p1p3*p2p4+32*d213*s**2*p1p3*p2p4-
     $     128*c0*p1p2*p1p3*p2p4-128*d20*p1p2*p1p3*p2p4-
     $     128*d13*mt**2*p1p2*p1p3*p2p4-
     $     128*d23*mt**2*p1p2*p1p3*p2p4+
     $     64*d11*s*p1p2*p1p3*p2p4+128*d20*p1p3**2*p2p4+
     $     256*d11*mt**2*p1p3**2*p2p4+64*d13*mt**2*p1p3**2*p2p4+
     $     128*d213*mt**2*p1p3**2*p2p4-64*d11*s*p1p3**2*p2p4-
     $     128*d213*s*p1p3**2*p2p4-
     $     256*d11*p1p2*p1p3**2*p2p4-
     $     128*d213*p1p2*p1p3**2*p2p4+128*d11*p1p3**3*p2p4+
     $     128*d213*p1p3**3*p2p4+128*c0*s*p1p4*p2p4-
     $     64*d12*mt**2*s*p1p4*p2p4+64*d223*mt**2*s*p1p4*p2p4+
     $     64*d23*mt**2*s*p1p4*p2p4-64*d11*s**2*p1p4*p2p4+
     $     64*d12*s*p1p2*p1p4*p2p4+
     $     128*d13*s*p1p2*p1p4*p2p4+
     $     64*d223*s*p1p2*p1p4*p2p4+
     $     64*d23*s*p1p2*p1p4*p2p4-
     $     128*c0*p1p3*p1p4*p2p4-
     $     256*d12*mt**2*p1p3*p1p4*p2p4-
     $     448*d13*mt**2*p1p3*p1p4*p2p4-
     $     128*d223*mt**2*p1p3*p1p4*p2p4-
     $     256*d23*mt**2*p1p3*p1p4*p2p4+
     $     192*d11*s*p1p3*p1p4*p2p4+
     $     64*d223*s*p1p3*p1p4*p2p4+
     $     64*d23*s*p1p3*p1p4*p2p4+
     $     256*d12*p1p2*p1p3*p1p4*p2p4+
     $     384*d13*p1p2*p1p3*p1p4*p2p4+
     $     128*d223*p1p2*p1p3*p1p4*p2p4+
     $     128*d23*p1p2*p1p3*p1p4*p2p4-
     $     128*d11*p1p3**2*p1p4*p2p4-
     $     128*d12*p1p3**2*p1p4*p2p4-
     $     128*d13*p1p3**2*p1p4*p2p4-
     $     128*d223*p1p3**2*p1p4*p2p4-
     $     128*d23*p1p3**2*p1p4*p2p4-128*d12*s*p1p4**2*p2p4-
     $     256*d13*s*p1p4**2*p2p4+128*d12*p1p3*p1p4**2*p2p4+
     $     256*d13*p1p3*p1p4**2*p2p4-
     $     64*d213*mt**2*s*p2p3*p2p4-64*d223*mt**2*s*p2p3*p2p4-
     $     64*d23*mt**2*s*p2p3*p2p4-64*c0*p1p3*p2p3*p2p4+
     $     128*d20*p1p3*p2p3*p2p4-
     $     64*d13*mt**2*p1p3*p2p3*p2p4+
     $     128*d23*mt**2*p1p3*p2p3*p2p4-
     $     64*d212*s*p1p3*p2p3*p2p4-
     $     64*d213*s*p1p3*p2p3*p2p4+
     $     128*d213*p1p3**2*p2p3*p2p4-
     $     64*c0*p1p4*p2p3*p2p4-256*d20*p1p4*p2p3*p2p4-
     $     64*d13*mt**2*p1p4*p2p3*p2p4+
     $     64*d11*s*p1p4*p2p3*p2p4+
     $     64*d212*s*p1p4*p2p3*p2p4+
     $     64*d213*s*p1p4*p2p3*p2p4+
     $     128*d12*p1p3*p1p4*p2p3*p2p4+
     $     128*d13*p1p3*p1p4*p2p3*p2p4+
     $     128*d12*p1p4**2*p2p3*p2p4+
     $     256*d13*p1p4**2*p2p3*p2p4+
     $     128*d223*p1p4**2*p2p3*p2p4+
     $     128*d23*p1p4**2*p2p3*p2p4+64*c0*p1p3*p2p4**2+
     $     256*d20*p1p3*p2p4**2+64*d13*mt**2*p1p3*p2p4**2+
     $     128*d23*mt**2*p1p3*p2p4**2-64*d11*s*p1p3*p2p4**2-
     $     64*d212*s*p1p3*p2p4**2-64*d213*s*p1p3*p2p4**2+
     $     128*d11*p1p3**2*p2p4**2+128*d213*p1p3**2*p2p4**2-
     $     128*d12*p1p3*p1p4*p2p4**2-
     $     256*d13*p1p3*p1p4*p2p4**2-
     $     128*d223*p1p3*p1p4*p2p4**2-
     $     128*d23*p1p3*p1p4*p2p4**2)

      kmv(3)=-(cs1*kmv1(3)+cs2*kmv2(3))/(s1-mt**2)/4d0
c B3(4)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p2pq,mt**2,0d0,
     $     mt**2-2d0*p2p3,s,0d0,mt,0d0)
c      write(6,*)'B8(2)=',d1(0)
      call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p2p3,
     $     -p3p4,-p2p3,p2p4-p3p4,
     $      0d0,0d0,0d0,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv1(4)=(48*c0*mt**2*s**2-32*d20*mt**2*s**2+32*d13*mt**4*s**2+
     $     32*d213*mt**4*s**2+32*d223*mt**4*s**2+32*d23*mt**4*s**2-
     $     16*d12*mt**2*s**3+16*d212*mt**2*s**3+16*d223*mt**2*s**3-
     $     64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*s*p1p2**2+
     $     64*d20*s*p1p2**2+64*d13*mt**2*s*p1p2**2+
     $     64*d23*mt**2*s*p1p2**2-64*d12*s**2*p1p2**2-
     $     32*d223*s**2*p1p2**2+32*c0*mt**2*s*p1p3-
     $     64*d20*mt**2*s*p1p3+32*d13*mt**4*s*p1p3-
     $     32*d12*mt**2*s**2*p1p3+32*d212*mt**2*s**2*p1p3+
     $     32*d223*mt**2*s**2*p1p3-32*c0*s*p1p2*p1p3-
     $     128*d20*s*p1p2*p1p3-32*d13*mt**2*s*p1p2*p1p3-
     $     64*d23*mt**2*s*p1p2*p1p3+32*d12*s**2*p1p2*p1p3+
     $     32*d212*s**2*p1p2*p1p3+32*d223*s**2*p1p2*p1p3+
     $     32*c0*mt**2*s*p1p4+128*d20*mt**2*s*p1p4+
     $     32*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4-
     $     32*d12*mt**2*s**2*p1p4-32*d212*mt**2*s**2*p1p4+
     $     32*d213*mt**2*s**2*p1p4-32*d223*mt**2*s**2*p1p4+
     $     32*d23*mt**2*s**2*p1p4-32*c0*s*p1p2*p1p4+
     $     64*d20*s*p1p2*p1p4-32*d13*mt**2*s*p1p2*p1p4-
     $     32*d212*s**2*p1p2*p1p4-32*d223*s**2*p1p2*p1p4-
     $     64*d213*mt**2*s*p1p3*p1p4-64*d223*mt**2*s*p1p3*p1p4-
     $     64*d23*mt**2*s*p1p3*p1p4+64*c0*mt**2*s*p2p3+
     $     192*d20*mt**2*s*p2p3+32*d13*mt**4*s*p2p3+
     $     64*d23*mt**4*s*p2p3-64*d11*mt**2*s**2*p2p3-
     $     64*d12*mt**2*s**2*p2p3-96*d13*mt**2*s**2*p2p3-
     $     64*d212*mt**2*s**2*p2p3+32*d213*mt**2*s**2*p2p3-
     $     64*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3-
     $     64*c0*s*p1p2*p2p3+128*d11*mt**2*s*p1p2*p2p3+
     $     160*d13*mt**2*s*p1p2*p2p3+64*d213*mt**2*s*p1p2*p2p3+
     $     64*d23*mt**2*s*p1p2*p2p3+32*d12*s**2*p1p2*p2p3-
     $     32*d213*s**2*p1p2*p2p3-32*d23*s**2*p1p2*p2p3-
     $     128*d11*s*p1p2**2*p2p3-192*d13*s*p1p2**2*p2p3-
     $     64*d213*s*p1p2**2*p2p3-64*d23*s*p1p2**2*p2p3+
     $     128*c0*s*p1p3*p2p3-64*d11*mt**2*s*p1p3*p2p3+
     $     64*d213*mt**2*s*p1p3*p2p3+64*d23*mt**2*s*p1p3*p2p3-
     $     64*d12*s**2*p1p3*p2p3+64*d11*s*p1p2*p1p3*p2p3+
     $     128*d13*s*p1p2*p1p3*p2p3+
     $     64*d213*s*p1p2*p1p3*p2p3+
     $     64*d23*s*p1p2*p1p3*p2p3+128*c0*mt**2*p1p4*p2p3+
     $     128*d20*mt**2*p1p4*p2p3+128*d13*mt**4*p1p4*p2p3+
     $     128*d23*mt**4*p1p4*p2p3+32*c0*s*p1p4*p2p3-
     $     128*d20*s*p1p4*p2p3-64*d11*mt**2*s*p1p4*p2p3-
     $     128*d12*mt**2*s*p1p4*p2p3-128*d13*mt**2*s*p1p4*p2p3-
     $     64*d213*mt**2*s*p1p4*p2p3-128*d23*mt**2*s*p1p4*p2p3+
     $     32*d212*s**2*p1p4*p2p3+32*d223*s**2*p1p4*p2p3-
     $     128*c0*p1p2*p1p4*p2p3-128*d20*p1p2*p1p4*p2p3-
     $     128*d13*mt**2*p1p2*p1p4*p2p3-
     $     128*d23*mt**2*p1p2*p1p4*p2p3+
     $     64*d11*s*p1p2*p1p4*p2p3+
     $     192*d12*s*p1p2*p1p4*p2p3+
     $     64*d13*s*p1p2*p1p4*p2p3+
     $     128*d223*s*p1p2*p1p4*p2p3-
     $     64*c0*p1p3*p1p4*p2p3-256*d20*p1p3*p1p4*p2p3-
     $     64*d13*mt**2*p1p3*p1p4*p2p3+
     $     64*d12*s*p1p3*p1p4*p2p3+
     $     64*d212*s*p1p3*p1p4*p2p3+
     $     64*d223*s*p1p3*p1p4*p2p3+64*c0*p1p4**2*p2p3-
     $     128*d20*p1p4**2*p2p3+64*d13*mt**2*p1p4**2*p2p3+
     $     64*d212*s*p1p4**2*p2p3+64*d223*s*p1p4**2*p2p3-
     $     64*d11*mt**2*s*p2p3**2-192*d13*mt**2*s*p2p3**2-
     $     128*d213*mt**2*s*p2p3**2-128*d23*mt**2*s*p2p3**2+
     $     64*d11*s*p1p2*p2p3**2+128*d13*s*p1p2*p2p3**2-
     $     128*d11*s*p1p3*p2p3**2-256*d13*s*p1p3*p2p3**2+
     $     128*c0*p1p4*p2p3**2-256*d11*mt**2*p1p4*p2p3**2-
     $     320*d13*mt**2*p1p4*p2p3**2-
     $     128*d213*mt**2*p1p4*p2p3**2-
     $     128*d23*mt**2*p1p4*p2p3**2-64*d12*s*p1p4*p2p3**2+
     $     64*d213*s*p1p4*p2p3**2+64*d23*s*p1p4*p2p3**2+
     $     256*d11*p1p2*p1p4*p2p3**2+
     $     384*d13*p1p2*p1p4*p2p3**2+
     $     128*d213*p1p2*p1p4*p2p3**2+
     $     128*d23*p1p2*p1p4*p2p3**2+
     $     128*d11*p1p3*p1p4*p2p3**2+
     $     256*d13*p1p3*p1p4*p2p3**2+
     $     128*d213*p1p3*p1p4*p2p3**2+
     $     128*d23*p1p3*p1p4*p2p3**2-
     $     128*d11*p1p4**2*p2p3**2-128*d12*p1p4**2*p2p3**2-
     $     128*d13*p1p4**2*p2p3**2-128*d223*p1p4**2*p2p3**2-
     $     128*d11*p1p4*p2p3**3-256*d13*p1p4*p2p3**3-
     $     128*d20*mt**2*s*p2p4+32*d13*mt**4*s*p2p4-
     $     64*d23*mt**4*s*p2p4+32*d12*mt**2*s**2*p2p4+
     $     64*d212*mt**2*s**2*p2p4+32*d223*mt**2*s**2*p2p4-
     $     64*d20*s*p1p2*p2p4-128*d12*mt**2*s*p1p2*p2p4-
     $     32*d13*mt**2*s*p1p2*p2p4-64*d223*mt**2*s*p1p2*p2p4+
     $     32*d12*s**2*p1p2*p2p4+64*d223*s**2*p1p2*p2p4+
     $     128*d12*s*p1p2**2*p2p4+64*d223*s*p1p2**2*p2p4+
     $     128*c0*mt**2*p1p3*p2p4+128*d20*mt**2*p1p3*p2p4+
     $     128*d13*mt**4*p1p3*p2p4+128*d23*mt**4*p1p3*p2p4+
     $     32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4-
     $     64*d12*mt**2*s*p1p3*p2p4+64*d213*mt**2*s*p1p3*p2p4-
     $     64*d223*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+
     $     32*d223*s**2*p1p3*p2p4-128*c0*p1p2*p1p3*p2p4-
     $     128*d20*p1p2*p1p3*p2p4-
     $     128*d13*mt**2*p1p2*p1p3*p2p4-
     $     128*d23*mt**2*p1p2*p1p3*p2p4+
     $     64*d12*s*p1p2*p1p3*p2p4+64*c0*p1p3**2*p2p4+
     $     256*d20*p1p3**2*p2p4+64*d13*mt**2*p1p3**2*p2p4+
     $     128*d23*mt**2*p1p3**2*p2p4-64*d12*s*p1p3**2*p2p4-
     $     64*d212*s*p1p3**2*p2p4-64*d223*s*p1p3**2*p2p4+
     $     64*c0*s*p1p4*p2p4-128*d20*s*p1p4*p2p4+
     $     64*d12*mt**2*s*p1p4*p2p4+64*d13*mt**2*s*p1p4*p2p4+
     $     128*d223*mt**2*s*p1p4*p2p4-64*d23*mt**2*s*p1p4*p2p4+
     $     64*d212*s**2*p1p4*p2p4+64*d223*s**2*p1p4*p2p4+
     $     64*d223*s*p1p2*p1p4*p2p4-
     $     64*c0*p1p3*p1p4*p2p4+128*d20*p1p3*p1p4*p2p4-
     $     64*d13*mt**2*p1p3*p1p4*p2p4+
     $     128*d23*mt**2*p1p3*p1p4*p2p4-
     $     64*d212*s*p1p3*p1p4*p2p4-
     $     64*d223*s*p1p3*p1p4*p2p4-
     $     64*d11*mt**2*s*p2p3*p2p4-64*d23*mt**2*s*p2p3*p2p4+
     $     64*d11*s*p1p2*p2p3*p2p4-
     $     64*d12*s*p1p2*p2p3*p2p4+
     $     64*d13*s*p1p2*p2p3*p2p4+
     $     64*d213*s*p1p2*p2p3*p2p4+
     $     64*d23*s*p1p2*p2p3*p2p4-
     $     128*c0*p1p3*p2p3*p2p4-
     $     256*d11*mt**2*p1p3*p2p3*p2p4-
     $     448*d13*mt**2*p1p3*p2p3*p2p4-
     $     128*d213*mt**2*p1p3*p2p3*p2p4-
     $     256*d23*mt**2*p1p3*p2p3*p2p4+
     $     192*d12*s*p1p3*p2p3*p2p4+
     $     64*d213*s*p1p3*p2p3*p2p4+
     $     64*d23*s*p1p3*p2p3*p2p4+
     $     256*d11*p1p2*p1p3*p2p3*p2p4+
     $     384*d13*p1p2*p1p3*p2p3*p2p4+
     $     128*d213*p1p2*p1p3*p2p3*p2p4+
     $     128*d23*p1p2*p1p3*p2p3*p2p4-
     $     128*d11*p1p3**2*p2p3*p2p4-
     $     256*d13*p1p3**2*p2p3*p2p4-
     $     128*d213*p1p3**2*p2p3*p2p4-
     $     128*d23*p1p3**2*p2p3*p2p4-
     $     128*d20*p1p4*p2p3*p2p4+
     $     256*d12*mt**2*p1p4*p2p3*p2p4-
     $     64*d13*mt**2*p1p4*p2p3*p2p4+
     $     128*d223*mt**2*p1p4*p2p3*p2p4-
     $     128*d23*mt**2*p1p4*p2p3*p2p4-
     $     128*d11*s*p1p4*p2p3*p2p4-
     $     64*d12*s*p1p4*p2p3*p2p4-
     $     128*d13*s*p1p4*p2p3*p2p4-
     $     128*d223*s*p1p4*p2p3*p2p4-
     $     256*d12*p1p2*p1p4*p2p3*p2p4-
     $     128*d223*p1p2*p1p4*p2p3*p2p4+
     $     128*d11*p1p3*p1p4*p2p3*p2p4+
     $     128*d13*p1p3*p1p4*p2p3*p2p4-
     $     128*d223*p1p4**2*p2p3*p2p4+
     $     128*d11*p1p3*p2p3**2*p2p4+
     $     256*d13*p1p3*p2p3**2*p2p4+
     $     128*d11*p1p4*p2p3**2*p2p4+
     $     128*d12*p1p4*p2p3**2*p2p4+
     $     128*d13*p1p4*p2p3**2*p2p4+
     $     128*d213*p1p4*p2p3**2*p2p4+
     $     128*d23*p1p4*p2p3**2*p2p4-128*d223*mt**2*s*p2p4**2-
     $     64*d12*s*p1p2*p2p4**2-64*d223*s*p1p2*p2p4**2+
     $     128*d20*p1p3*p2p4**2+256*d12*mt**2*p1p3*p2p4**2+
     $     64*d13*mt**2*p1p3*p2p4**2+
     $     128*d223*mt**2*p1p3*p2p4**2-64*d12*s*p1p3*p2p4**2-
     $     128*d223*s*p1p3*p2p4**2-
     $     256*d12*p1p2*p1p3*p2p4**2-
     $     128*d223*p1p2*p1p3*p2p4**2+
     $     128*d12*p1p3**2*p2p4**2+128*d223*p1p3**2*p2p4**2-
     $     128*d223*s*p1p4*p2p4**2+
     $     128*d223*p1p3*p1p4*p2p4**2-
     $     128*d11*p1p3*p2p3*p2p4**2-
     $     128*d12*p1p3*p2p3*p2p4**2-
     $     128*d13*p1p3*p2p3*p2p4**2-
     $     128*d213*p1p3*p2p3*p2p4**2-
     $     128*d23*p1p3*p2p3*p2p4**2-
     $     128*d12*p1p4*p2p3*p2p4**2-
     $     128*d223*p1p4*p2p3*p2p4**2+128*d12*p1p3*p2p4**3+
     $     128*d223*p1p3*p2p4**3)
      kmv2(4)=(64*c0*mt**4*s+64*d20*mt**4*s+64*d13*mt**6*s+
     $     64*d23*mt**6*s+48*c0*mt**2*s**2-32*d20*mt**2*s**2-
     $     64*d12*mt**4*s**2+32*d13*mt**4*s**2+32*d213*mt**4*s**2+
     $     32*d23*mt**4*s**2-16*d12*mt**2*s**3+16*d212*mt**2*s**3+
     $     16*d223*mt**2*s**3-64*c0*mt**2*s*p1p2-64*d20*mt**2*s*p1p2-
     $     64*d13*mt**4*s*p1p2-64*d23*mt**4*s*p1p2-
     $     16*c0*s**2*p1p2+64*d20*s**2*p1p2+
     $     64*d12*mt**2*s**2*p1p2-32*d213*mt**2*s**2*p1p2-
     $     16*d212*s**3*p1p2-16*d223*s**3*p1p2+64*c0*mt**2*s*p1p3+
     $     64*d20*mt**2*s*p1p3+64*d13*mt**4*s*p1p3+
     $     64*d23*mt**4*s*p1p3-64*d12*mt**2*s**2*p1p3+
     $     64*c0*mt**2*s*p1p4+64*d20*mt**2*s*p1p4+
     $     64*d13*mt**4*s*p1p4+64*d23*mt**4*s*p1p4-
     $     32*d12*mt**2*s**2*p1p4+32*d213*mt**2*s**2*p1p4+
     $     32*d23*mt**2*s**2*p1p4+32*c0*mt**2*s*p2p3+
     $     64*d20*mt**2*s*p2p3-128*d11*mt**4*s*p2p3-
     $     192*d13*mt**4*s*p2p3-64*d213*mt**4*s*p2p3-
     $     64*d23*mt**4*s*p2p3-64*d11*mt**2*s**2*p2p3-
     $     32*d12*mt**2*s**2*p2p3-96*d13*mt**2*s**2*p2p3-
     $     32*d212*mt**2*s**2*p2p3+32*d213*mt**2*s**2*p2p3-
     $     32*d223*mt**2*s**2*p2p3+32*d23*mt**2*s**2*p2p3-
     $     96*c0*s*p1p2*p2p3-128*d20*s*p1p2*p2p3+
     $     128*d11*mt**2*s*p1p2*p2p3+128*d13*mt**2*s*p1p2*p2p3+
     $     64*d213*mt**2*s*p1p2*p2p3+64*d12*s**2*p1p2*p2p3+
     $     32*d212*s**2*p1p2*p2p3-32*d213*s**2*p1p2*p2p3+
     $     32*d223*s**2*p1p2*p2p3-32*d23*s**2*p1p2*p2p3+
     $     128*c0*s*p1p3*p2p3-128*d11*mt**2*s*p1p3*p2p3-
     $     128*d13*mt**2*s*p1p3*p2p3-64*d12*s**2*p1p3*p2p3+
     $     32*c0*s*p1p4*p2p3-128*d20*s*p1p4*p2p3-
     $     128*d11*mt**2*s*p1p4*p2p3-64*d12*mt**2*s*p1p4*p2p3-
     $     192*d13*mt**2*s*p1p4*p2p3-64*d213*mt**2*s*p1p4*p2p3-
     $     128*d23*mt**2*s*p1p4*p2p3+32*d212*s**2*p1p4*p2p3+
     $     32*d223*s**2*p1p4*p2p3-64*d13*mt**2*s*p2p3**2-
     $     64*d213*mt**2*s*p2p3**2-64*d23*mt**2*s*p2p3**2+
     $     128*d11*s*p1p2*p2p3**2+256*d13*s*p1p2*p2p3**2+
     $     64*d213*s*p1p2*p2p3**2+64*d23*s*p1p2*p2p3**2-
     $     128*d11*s*p1p3*p2p3**2-256*d13*s*p1p3*p2p3**2+
     $     192*c0*p1p4*p2p3**2+256*d20*p1p4*p2p3**2+
     $     128*d13*mt**2*p1p4*p2p3**2+
     $     128*d23*mt**2*p1p4*p2p3**2-128*d12*s*p1p4*p2p3**2-
     $     64*d212*s*p1p4*p2p3**2+64*d213*s*p1p4*p2p3**2-
     $     64*d223*s*p1p4*p2p3**2+64*d23*s*p1p4*p2p3**2-
     $     256*d11*p1p4*p2p3**3-512*d13*p1p4*p2p3**3-
     $     128*d213*p1p4*p2p3**3-128*d23*p1p4*p2p3**3-
     $     32*c0*mt**2*s*p2p4-64*d20*mt**2*s*p2p4+
     $     128*d12*mt**4*s*p2p4+64*d223*mt**4*s*p2p4-
     $     64*d23*mt**4*s*p2p4+32*d12*mt**2*s**2*p2p4+
     $     32*d212*mt**2*s**2*p2p4-32*c0*s*p1p2*p2p4-
     $     128*d12*mt**2*s*p1p2*p2p4-64*d13*mt**2*s*p1p2*p2p4-
     $     64*d223*mt**2*s*p1p2*p2p4+32*d12*s**2*p1p2*p2p4-
     $     32*d212*s**2*p1p2*p2p4+32*d223*s**2*p1p2*p2p4+
     $     32*c0*s*p1p3*p2p4-128*d20*s*p1p3*p2p4+
     $     128*d12*mt**2*s*p1p3*p2p4+64*d213*mt**2*s*p1p3*p2p4+
     $     64*d223*mt**2*s*p1p3*p2p4+32*d212*s**2*p1p3*p2p4+
     $     32*d223*s**2*p1p3*p2p4+64*c0*s*p1p4*p2p4-
     $     128*d20*s*p1p4*p2p4+64*d12*mt**2*s*p1p4*p2p4+
     $     64*d13*mt**2*s*p1p4*p2p4+64*d223*mt**2*s*p1p4*p2p4-
     $     64*d23*mt**2*s*p1p4*p2p4+64*d212*s**2*p1p4*p2p4+
     $     64*d223*s**2*p1p4*p2p4-256*c0*mt**2*p2p3*p2p4-
     $     256*d20*mt**2*p2p3*p2p4-256*d13*mt**4*p2p3*p2p4-
     $     256*d23*mt**4*p2p3*p2p4+256*d12*mt**2*s*p2p3*p2p4+
     $     64*d13*mt**2*s*p2p3*p2p4-64*d213*mt**2*s*p2p3*p2p4+
     $     64*d223*mt**2*s*p2p3*p2p4-128*d23*mt**2*s*p2p3*p2p4+
     $     256*c0*p1p2*p2p3*p2p4+256*d20*p1p2*p2p3*p2p4+
     $     256*d13*mt**2*p1p2*p2p3*p2p4+
     $     256*d23*mt**2*p1p2*p2p3*p2p4+
     $     128*d11*s*p1p2*p2p3*p2p4-
     $     320*d12*s*p1p2*p2p3*p2p4+
     $     128*d13*s*p1p2*p2p3*p2p4+
     $     64*d213*s*p1p2*p2p3*p2p4-
     $     128*d223*s*p1p2*p2p3*p2p4+
     $     64*d23*s*p1p2*p2p3*p2p4-
     $     192*c0*p1p3*p2p3*p2p4-256*d20*p1p3*p2p3*p2p4-
     $     128*d13*mt**2*p1p3*p2p3*p2p4-
     $     256*d23*mt**2*p1p3*p2p3*p2p4+
     $     256*d12*s*p1p3*p2p3*p2p4+
     $     64*d212*s*p1p3*p2p3*p2p4+
     $     64*d213*s*p1p3*p2p3*p2p4+
     $     64*d223*s*p1p3*p2p3*p2p4+
     $     64*d23*s*p1p3*p2p3*p2p4-64*c0*p1p4*p2p3*p2p4-
     $     128*d13*mt**2*p1p4*p2p3*p2p4-
     $     128*d23*mt**2*p1p4*p2p3*p2p4-
     $     128*d11*s*p1p4*p2p3*p2p4-
     $     64*d12*s*p1p4*p2p3*p2p4-
     $     128*d13*s*p1p4*p2p3*p2p4-
     $     64*d212*s*p1p4*p2p3*p2p4-
     $     192*d223*s*p1p4*p2p3*p2p4+
     $     512*d11*mt**2*p2p3**2*p2p4+
     $     768*d13*mt**2*p2p3**2*p2p4+
     $     256*d213*mt**2*p2p3**2*p2p4+
     $     384*d23*mt**2*p2p3**2*p2p4-
     $     512*d11*p1p2*p2p3**2*p2p4-
     $     768*d13*p1p2*p2p3**2*p2p4-
     $     256*d213*p1p2*p2p3**2*p2p4-
     $     256*d23*p1p2*p2p3**2*p2p4+
     $     256*d11*p1p3*p2p3**2*p2p4+
     $     512*d13*p1p3*p2p3**2*p2p4+
     $     128*d213*p1p3*p2p3**2*p2p4+
     $     128*d23*p1p3*p2p3**2*p2p4+
     $     256*d11*p1p4*p2p3**2*p2p4+
     $     384*d12*p1p4*p2p3**2*p2p4+
     $     256*d13*p1p4*p2p3**2*p2p4+
     $     128*d213*p1p4*p2p3**2*p2p4+
     $     256*d223*p1p4*p2p3**2*p2p4+
     $     128*d23*p1p4*p2p3**2*p2p4-64*d223*mt**2*s*p2p4**2-
     $     64*d12*s*p1p2*p2p4**2+64*c0*p1p3*p2p4**2+
     $     128*d13*mt**2*p1p3*p2p4**2-64*d12*s*p1p3*p2p4**2+
     $     64*d212*s*p1p3*p2p4**2-64*d223*s*p1p3*p2p4**2-
     $     128*d223*s*p1p4*p2p4**2-512*d12*mt**2*p2p3*p2p4**2-
     $     256*d223*mt**2*p2p3*p2p4**2+
     $     128*d23*mt**2*p2p3*p2p4**2+
     $     512*d12*p1p2*p2p3*p2p4**2+
     $     256*d223*p1p2*p2p3*p2p4**2-
     $     256*d11*p1p3*p2p3*p2p4**2-
     $     384*d12*p1p3*p2p3*p2p4**2-
     $     256*d13*p1p3*p2p3*p2p4**2-
     $     128*d213*p1p3*p2p3*p2p4**2-
     $     256*d223*p1p3*p2p3*p2p4**2-
     $     128*d23*p1p3*p2p3*p2p4**2-
     $     128*d12*p1p4*p2p3*p2p4**2+128*d12*p1p3*p2p4**3)

      kmv(4)=-(cs1*kmv1(4)+cs2*kmv2(4))/(s2-mt**2)/4d0
      return
      end
